home *** CD-ROM | disk | FTP | other *** search
/ Aminet 44 / Aminet 44 (2001)(GTI - Schatztruhe)[!][Aug 2001].iso / Aminet / util / virus / xvslibrary.lha / xvs / developer / examples / xvsex.e < prev   
Text File  |  1999-03-01  |  440b  |  27 lines
  1. MODULE 'xvs', 'libraries/xvs', 'utility/tagitem'
  2.  
  3. DEF xvsobj:LONG
  4. DEF virii_found:LONG
  5.  
  6. PROC main()
  7.  
  8. IF xvsbase:=OpenLibrary('xvs.library',0)
  9.   xvsobj:=XvsAllocObject(XVSOBJ_MEMORYINFO)
  10.  
  11.   IF xvsobj=0
  12.     WriteF('couldnt allocate object\n')
  13.   ENDIF
  14.  
  15.   virii_found:=XvsSurveyMemory(xvsobj)
  16.   
  17.   WriteF('\d virii found\n',virii_found)
  18.   
  19.   XvsFreeObject(xvsobj)
  20.   CloseLibrary(xvsbase)
  21. ELSE
  22.   WriteF('couldnt open library\n')
  23. ENDIF
  24.  
  25. ENDPROC
  26.  
  27.